Ultra Gameplayers 109/Ultra Gameplayers 109.iso/pc/media/new_ugp.dxr/00305_Text Color Class.ls

Text File | 1998-02-10 | 638 b | 24 lines

property memberNum, lineNum, hiliteColor, normalColor

on new me, parameterList
  set memberNum to getProp(parameterList, #memberNum)
  set lineNum to getaProp(parameterList, #lineNum)
  set hiliteColor to getaProp(parameterList, #hiliteColor)
  set normalColor to getProp(parameterList, #normalColor)
  return me
end

on TurnOn me
  set the foreColor of member memberNum to translateColor(normalColor)
  if not voidp(lineNum) and not voidp(hiliteColor) then
    set the foreColor of line lineNum of member memberNum to translateColor(hiliteColor)
  end if
  set the stageColor to the stageColor
end

on TurnOff me
end

on dispose me
end